VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BPuntoVenta"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bCompania"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'---------------------------------------------------------------------------------------
' Module    : BPuntoVenta
' DateTime  : 30/11/2011 12:02
' Author    :
' Purpose   : Clase Datos Entidad PuntoVenta
'---------------------------------------------------------------------------------------
Option Explicit
Private mvarsnomImpresora As String
Private mvarsSerImpresora As String
Private mvarnNumBoleta As Long
Private mvarsDireccion As String
Private mvarsTelefono As String
Private mvarsSerie As String
Private mvarnNumFactura As Long
Friend Property Let sSerie(ByVal vData As String)
    mvarsSerie = vData
End Property
Friend Property Get sSerie() As String
    sSerie = mvarsSerie
End Property
Friend Property Let sTelefono(ByVal vData As String)
    mvarsTelefono = vData
End Property
Friend Property Get sTelefono() As String
    sTelefono = mvarsTelefono
End Property
Friend Property Let sDireccion(ByVal vData As String)
    mvarsDireccion = vData
End Property
Friend Property Get sDireccion() As String
    sDireccion = mvarsDireccion
End Property
Friend Property Let nNumBoleta(ByVal vData As Long)
    mvarnNumBoleta = vData
End Property
Friend Property Get nNumBoleta() As Long
    nNumBoleta = mvarnNumBoleta
End Property
Friend Property Let sSerImpresora(ByVal vData As String)
    mvarsSerImpresora = vData
End Property
Friend Property Get sSerImpresora() As String
    sSerImpresora = mvarsSerImpresora
End Property
Friend Property Let snomImpresora(ByVal vData As String)
    mvarsnomImpresora = vData
End Property
Friend Property Get snomImpresora() As String
    snomImpresora = mvarsnomImpresora
End Property
Public Property Get nNumFactura() As Long
    nNumFactura = mvarnNumFactura
End Property
Public Property Let nNumFactura(ByVal nNumFactura As Long)
    mvarnNumFactura = nNumFactura
End Property
